home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_4429.txt < prev    next >
Text File  |  1988-09-28  |  5KB  |  279 lines
  1. -- card: 4429 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Scan
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     put empty into reslts
  12.     repeat 3
  13.       put recvUpTo(port,return,2,false,false) into newIn
  14.       put newIn after reslts
  15.     end repeat
  16.     if "[H]"is in reslts then pop card
  17.     if the length of reslts >0 then
  18.       put reslts after card field 1
  19.       put the rect of card field 1 into fieldRect
  20.       put ( item 3 of fieldRect) - 5 into horizCoord
  21.       put (item 4 of fieldRect) - 17 into vertCoord
  22.  
  23.       click at horizCoord,vertCoord
  24.     end if
  25.     if reslts contains "completed" then beep
  26.   end if
  27. end idle
  28.  
  29. on closecard
  30.   put empty into card field 1
  31. end closecard
  32.  
  33. on opencard
  34.   put empty into card field 1
  35. end opencard
  36.  
  37.  
  38. -- part 1 (field)
  39. -- low flags: 00
  40. -- high flags: 0007
  41. -- rect: left=2 top=64 right=314 bottom=508
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 4
  46. -- text size: 9
  47. -- style flags: 0
  48. -- line height: 12
  49. -- part name: 
  50.  
  51.  
  52. -- part 3 (button)
  53. -- low flags: 00
  54. -- high flags: 8004
  55. -- rect: left=43 top=318 right=341 bottom=81
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: No
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   global port
  67.   sendSPort port,false,"n"&return
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 4 (button)
  73. -- low flags: 00
  74. -- high flags: 8004
  75. -- rect: left=397 top=38 right=62 bottom=483
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Quit/Done
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   global port
  87.   sendSPort port,false,"q"&return
  88.   pop card
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 12 (button)
  94. -- low flags: 00
  95. -- high flags: 8004
  96. -- rect: left=3 top=318 right=341 bottom=41
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Yes
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   global port
  108.   sendSPort port,false,"y"&return
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 13 (button)
  114. -- low flags: 00
  115. -- high flags: 8004
  116. -- rect: left=91 top=318 right=340 bottom=145
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Cont.
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   global port
  128.   sendSPort port,false,"c"&return
  129.  
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 14 (button)
  135. -- low flags: 00
  136. -- high flags: 8004
  137. -- rect: left=146 top=318 right=340 bottom=200
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Next
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   global port
  149.   sendSPort port,false,"n"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 15 (button)
  155. -- low flags: 00
  156. -- high flags: 8004
  157. -- rect: left=201 top=318 right=340 bottom=255
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Again
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   global port
  169.   sendSPort port,false,"p"&return
  170.  
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 16 (button)
  176. -- low flags: 00
  177. -- high flags: 8004
  178. -- rect: left=256 top=318 right=340 bottom=310
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Reply
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   global port
  190.   sendSPort port,false,"r"&return
  191.  
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 17 (button)
  197. -- low flags: 00
  198. -- high flags: 8004
  199. -- rect: left=311 top=318 right=340 bottom=365
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Delete
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   global port
  211.   sendSPort port,false,"d"&return
  212.  
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 18 (button)
  218. -- low flags: 00
  219. -- high flags: 8004
  220. -- rect: left=366 top=318 right=340 bottom=420
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: Undel.
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   global port
  232.   sendSPort port,false,"u"&return
  233.  
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 19 (button)
  239. -- low flags: 00
  240. -- high flags: 8004
  241. -- rect: left=421 top=318 right=340 bottom=479
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Observe
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   global port
  253.   sendSPort port,false,"o"&return
  254.  
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part contents for background part 5
  260. ----- text -----
  261. 12:05 AM
  262.  
  263. -- part contents for background part 1
  264. ----- text -----
  265.  
  266.  
  267.  
  268.  
  269.  
  270. Thu, Jul 7, 1988, 4:22 PM
  271. Sat, Sep 24, 1988, 12:05 AM
  272.  
  273. -- part contents for background part 4
  274. ----- text -----
  275. Mon, Sep 19, 1988
  276.  
  277. -- part contents for background part 3
  278. ----- text -----
  279. Thu, Sep 8, 1988, 8:09 PM